home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2010 April / PCWorld0410.iso / hity wydania / GIMP 2.6.8 / gimp-2.6.8-i686-setup.exe / {app} / share / gimp / 2.0 / scripts / glowing-logo.scm < prev    next >
Text File  |  2009-12-15  |  4KB  |  122 lines
  1. ;  GLOWING
  2. ;  Create a text effect that simulates a glowing hot logo
  3.  
  4. (define (apply-glowing-logo-effect img
  5.                                    logo-layer
  6.                                    size
  7.                                    bg-color)
  8.   (let* (
  9.         (grow (/ size 4))
  10.         (feather1 (/ size 3))
  11.         (feather2 (/ size 7))
  12.         (feather3 (/ size 10))
  13.         (width (car (gimp-drawable-width logo-layer)))
  14.         (height (car (gimp-drawable-height logo-layer)))
  15.         (posx (- (car (gimp-drawable-offsets logo-layer))))
  16.         (posy (- (cadr (gimp-drawable-offsets logo-layer))))
  17.         (glow-layer (car (gimp-layer-copy logo-layer TRUE)))
  18.         (bg-layer (car (gimp-layer-new img width height RGB-IMAGE "Background" 100 NORMAL-MODE)))
  19.         )
  20.  
  21.     (gimp-context-push)
  22.  
  23.     (script-fu-util-image-resize-from-layer img logo-layer)
  24.     (script-fu-util-image-add-layers img glow-layer bg-layer)
  25.     (gimp-layer-translate glow-layer posx posy)
  26.  
  27.     (gimp-selection-none img)
  28.     (gimp-context-set-background bg-color)
  29.     (gimp-edit-fill bg-layer BACKGROUND-FILL)
  30.  
  31.     (gimp-layer-set-lock-alpha logo-layer TRUE)
  32.     (gimp-context-set-background '(0 0 0))
  33.     (gimp-edit-fill logo-layer BACKGROUND-FILL)
  34.  
  35.     (gimp-selection-layer-alpha logo-layer)
  36.     (gimp-selection-feather img feather1)
  37.     (gimp-context-set-background '(221 0 0))
  38.     (gimp-edit-fill glow-layer BACKGROUND-FILL)
  39.     (gimp-edit-fill glow-layer BACKGROUND-FILL)
  40.     (gimp-edit-fill glow-layer BACKGROUND-FILL)
  41.  
  42.     (gimp-selection-layer-alpha logo-layer)
  43.     (gimp-selection-feather img feather2)
  44.     (gimp-context-set-background '(232 217 18))
  45.     (gimp-edit-fill glow-layer BACKGROUND-FILL)
  46.     (gimp-edit-fill glow-layer BACKGROUND-FILL)
  47.  
  48.     (gimp-selection-layer-alpha logo-layer)
  49.     (gimp-selection-feather img feather3)
  50.     (gimp-context-set-background '(255 255 255))
  51.     (gimp-edit-fill glow-layer BACKGROUND-FILL)
  52.     (gimp-selection-none img)
  53.  
  54.     (gimp-layer-set-mode logo-layer OVERLAY-MODE)
  55.     (gimp-drawable-set-name glow-layer "Glow Layer")
  56.  
  57.     (gimp-context-pop)
  58.   )
  59. )
  60.  
  61.  
  62. (define (script-fu-glowing-logo-alpha img
  63.                                       logo-layer
  64.                                       size
  65.                                       bg-color)
  66.   (begin
  67.     (gimp-image-undo-group-start img)
  68.     (apply-glowing-logo-effect img logo-layer (* size 3) bg-color)
  69.     (gimp-image-undo-group-end img)
  70.     (gimp-displays-flush)
  71.   )
  72. )
  73.  
  74. (script-fu-register "script-fu-glowing-logo-alpha"
  75.   _"Glo_wing Hot..."
  76.   _"Add a glowing hot metal effect to the selected region (or alpha)"
  77.   "Spencer Kimball"
  78.   "Spencer Kimball"
  79.   "1997"
  80.   "RGBA"
  81.   SF-IMAGE      "Image"                 0
  82.   SF-DRAWABLE   "Drawable"              0
  83.   SF-ADJUSTMENT _"Effect size (pixels)" '(50 1 500 1 10 0 1)
  84.   SF-COLOR      _"Background color"     '(7 0 20)
  85. )
  86.  
  87. (script-fu-menu-register "script-fu-glowing-logo-alpha"
  88.                          "<Image>/Filters/Alpha to Logo")
  89.  
  90.  
  91. (define (script-fu-glowing-logo text
  92.                                 size
  93.                                 font
  94.                                 bg-color)
  95.   (let* (
  96.         (img (car (gimp-image-new 256 256 RGB)))
  97.         (border (/ size 4))
  98.         (text-layer (car (gimp-text-fontname img -1 0 0 text border TRUE size PIXELS font)))
  99.         )
  100.     (gimp-image-undo-disable img)
  101.     (apply-glowing-logo-effect img text-layer size bg-color)
  102.     (gimp-image-undo-enable img)
  103.     (gimp-display-new img)
  104.   )
  105. )
  106.  
  107. (script-fu-register "script-fu-glowing-logo"
  108.   _"Glo_wing Hot..."
  109.   _"Create a logo that looks like glowing hot metal"
  110.   "Spencer Kimball"
  111.   "Spencer Kimball"
  112.   "1997"
  113.   ""
  114.   SF-STRING     _"Text"               "GLOWING"
  115.   SF-ADJUSTMENT _"Font size (pixels)" '(150 2 1000 1 10 0 1)
  116.   SF-FONT       _"Font"               "Slogan"
  117.   SF-COLOR      _"Background color"   '(7 0 20)
  118. )
  119.  
  120. (script-fu-menu-register "script-fu-glowing-logo"
  121.                          "<Image>/File/Create/Logos")
  122.